home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / RxAsl / Examples / file.rexx next >
Encoding:
OS/2 REXX Batch file  |  2001-09-18  |  599 b   |  28 lines
  1. /*
  2.     ReqFile()
  3. */
  4.  
  5. file.DoPatterns       = 1
  6. file.DoMultiselect = 1
  7. file.Drawer           = "RAM:"
  8. file.Pattern       = "#?"
  9.  
  10. res = ReqFile("file")
  11. if res==0 then do
  12.     say "   LeftEdge:" file.LeftEdge
  13.     say "    TopEdge: " file.TopEdge
  14.     say "      Width: " file.Width
  15.     say "     Height: " file.Height
  16.     say "       File: " file.File
  17.     say "     Drawer: " file.Drawer
  18.     say "    Pattern: " file.Pattern
  19.     say "        Num: " file.Num
  20.     say "     SortBy: " file.SortBy
  21.     say "  SortOrder: " file.SortOrder
  22.     say "SortDrawers: " file.SortDrawers
  23.     say
  24.     do i=0 to file.Num-1
  25.         say i":" AddPart(file.Drawer,file.i)
  26.     end
  27. end
  28.